home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_3 / mumu / s / mumu.newgroup < prev    next >
AmigaDOS Script File  |  1994-01-26  |  412b  |  24 lines
  1. .key DIR/K
  2. .bra {
  3. .ket }
  4.  
  5. ;
  6. ; Example-Script for creating a new Group
  7. ;    $VER: NewGroup 1.0 (8.1.94) by Litrik De Roy
  8. ;
  9.  
  10.  
  11. IF `UserInfo QUICK` EQ "root"
  12.     IF NOT EXISTS {dir}
  13.         Echo "Creating template Group directory..."
  14.         MakeDir {dir}
  15.         SetOwner {dir} root QUIET
  16.         MProtect {dir} RW GROUP R OTHER R QUIET
  17.         Echo "Done."
  18.     ELSE
  19.         Echo "Directory {dir} already exists."
  20.     ENDIF
  21. ELSE
  22.     Echo "Access not allowed."
  23. ENDIF
  24.